10 DIM V$(10),V3$(10),AD$(10),A$(10),S$(10),SR$(10,2),AR$(10,2)
11 REM
12 REM DATEN EINLESEN
13 REM
14 FORG=1TO10:READV$(G):NEXT:FORG=1TO10:READV3$(G):NEXT:FORG=1TO10:READAD$(G)
15 NEXT:FORG=1TO10:READA$(G):NEXT:FORG=1TO10:READS$(G):NEXT:FORG=1TO7
17 READSR$(G,1),SR$(G,2):NEXT:FORG=1TO6:READAR$(G,1),AR$(G,2):NEXT:FORG=1TO7
18 READT$(G):NEXT
19 REM
20 REM AUSLOSUNG
21 REM
22 R0=INT(RND(1)*10)+1:R1=INT(RND(1)*10)+1:R2=INT(RND(1)*7)+1
23 R3=INT(RND(1)*10)+1:R4=INT(RND(1)*10)+1:R5=INT(RND(1)*10)+1
24 R6=INT(RND(1)*10)+1:R7=INT(RND(1)*6)+1:R8=INT(RND(1)*10)+1
25 R9=INT(RND(1)*10)+1
26 REM
27 REM UEBERSCHRIFT
28 REM
29 POKE53281,7:POKE53280,2:PRINT"[147]      PUBLICATION-POEM-PRINTER 1.0      "
30 REM
31 REM DAS GEDICHT
32 REM
33 PRINT"[144] "T$(1)" "V$(R0)" "T$(2)" "AD$(R1)" "SR$(R2,1)" ?"
34 PRINT" "T$(3)"[160]"V$(R3)"[160]"T$(4)" "V$(R5)" "AR$(R7,1)","
35 PRINT" "T$(5)" "A$(R5)" "V3$(R6)" "SR$(R2,2)","
36 PRINT" "T$(6)" "T$(7)" "S$(R8)" "V$(R9)" "AR$(R7,2)" !"
37 REM
38 REM WORTDATEN
39 REM
40 DATA BRODELN,WEHEN,FUEHLEN,WEINEN,LACHEN,LIEBEN,SAEUSELN,WIMMERN,ZITTERN
41 DATA BEBEN,HASST,FRAGT,LIEBT,WEINT,SUCHT,FINDET,GEHT,KAUT,MALT,RETTET,ROTEN
42 DATA BLAUEN,FERNEN,HOHEN,EDLEN,REINEN,TREUEN,HOLDEN,FREIEN,LAUEN,SUESS
43 DATA SELIG,EDEL,REIN,SANFT,HEITER,STOLZ,EWIG,HOLD,EIFRIG
44 DATA WINDE,STERNE,TAGE,ENGEL,MONDE,QUALEN,WOLKEN,WELTEN,WOGEN,HERZEN
45 DATA KLAGEN,DER MAGEN,VOEGEL,DAS SEGEL,WINDE,DIE LINDE,UFER,DER RUFER
46 DATA TAGE,DIE PLAGE,ROSEN,DAS KOSEN,SCHRITTE,DIE MITTE,GRAU,LAU,SELIG
47 DATA FROEHLICH,WEIT,BREIT,HEITER,WEITER,TREU,SCHEU,LANG,BANG,WARUM,DIE
48 DATA SIE,UND,ABER,DENN,DIE
49 REM
50 REM ENDE
51 REM
52 PRINT"  [151]WAR DAS NICHT SCHOEN ([152]SCHNIEEEEF[151]) ?"
53 PRINT" NOCHMAL (J/N) ???"
54 GETA$:IFA$=""THEN54
55 IFA$="J"THEN19
56 IFA$="N"THENPRINT" KUNSTBANAUSE ![144]":END
57 GOTO54